home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
186
/
creditlo.lst
< prev
next >
Wrap
File List
|
1988-03-13
|
2KB
|
80 lines
@Dialog_box
Procedure Dialog_box
' DIALOG CONSTRUCTION SET (c) Programmed by Derrick Anthony Hall
'
' PERMISSION GRANTED TO USE DIALOG CONSTRUCTION SET (c)
' GENERATED SOURCE CODE WITHIN GFA BASIC PROGRAMS.
'
' Source code can be published or upload to bulletin boards.
'
' I only ask that you give VISIBLE CREDIT within your program to
' Dialog Construction Set resource editor.
'
' Have fun and enjoy!
' Merge this source LST file into your program
@Shrink_grow(1,5,5,5,5,51,21,217,169)
Sget yourname$
Graphmode 1
Deffill 0,2,8
' DIALOG box parameters
' Box #1
'Insert Deffill here, to fill boxes with color or pattern
Pbox 62,19,259,192
Box 62,19,259,192
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' Box #2
'Insert Deffill here, to fill boxes with color or pattern
Pbox 64,23,257,189
Box 64,23,257,189
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' TOUCHEXIT button parameters
' Box #1
'Insert Deffill here, to fill boxes with color or pattern
Pbox 120,170,202,186
Box 120,170,202,186
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' RADIO button parameters
' To change text FONT and COLOR use the command DEFTEXT
Text 130,182,"Continue"
Text 134,40,"Dialog "
Text 114,51,"Construction"
Text 148,63,"Set"
Text 113,87,"Version 1.20"
Do
K=mousek
While K=1
Mouse X,Y,K
If X>120and Y>170and X<202And Y<186And K
Graphmode 2
Deffill 1,2,8
Pbox 120,170,202,186
Graphmode 3
Text 130,182,"Continue"
Pause 8
Goto Buttonend
Endif
Wend
Loop
Buttonend:
Sput yourname$
Clr yourname$
Graphmode 1
@Shrink_grow(0,5,5,5,5,51,21,219,172)
Return
'
Procedure Shrink_grow(Gem,Lightx,Lighty,Wsgx,Hsgy,Lox,Loy,Wx,Hy)
Dpoke Gintin,Lightx
Dpoke Gintin+2,Lighty
Dpoke Gintin+4,Wsgx
Dpoke Gintin+6,Hsgy
Dpoke Gintin+8,Lox
Dpoke Gintin+10,Loy
Dpoke Gintin+12,Wx
Dpoke Gintin+14,Hy
If Gem=1
Gemsys (73)
Else
Gemsys (74)
Endif
Return